home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / DB_CLIPP / 0292.ZIP / TRACKIT.ARC / TRACKDEX.PRG < prev    next >
Text File  |  1985-12-21  |  640b  |  27 lines
  1. * FILE NAME           TRACKDEX.PRG
  2. * MAIN PROGRAM        TRACK_IT.PRG
  3. * PROGRAMMER          DAVID IRWIN
  4. * DATE WRITTEN        12/15/84
  5. * LAST UPDATE         01/08/85
  6. *
  7. *
  8. * To be run before using TRACK-IT+
  9. * or when new indexes are required
  10. *
  11. *
  12. *track.dex
  13. SET SAFETY OFF
  14. USE track_it
  15. INDEX ON upper(lname) TO tracknme
  16. INDEX ON upper(company) TO trackco
  17. INDEX ON upper(product) TO trackprd
  18. INDEX ON date_next TO tracknxt
  19. INDEX ON upper(status) TO tracksts
  20. USE trackrst
  21. if eof() .AND. bof()
  22.   APPEND BLANK
  23. endif
  24. INDEX ON upper(lname) TO trackrdx
  25. SET SAFETY ON
  26. RETURN
  27.